home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / Install-it < prev    next >
Text File  |  1999-03-07  |  3KB  |  108 lines
  1. /* Install.rexx
  2.  
  3. */
  4. OPTIONS RESULTS
  5. OPTIONS FAILAT 10
  6. NL='0a'x ;ib=0 ;mi=0 ;ai=0;st=0
  7. addlib("rexxreqtools.library", 0, -30, 0)
  8. lib= show('Libs',"rexxreqtools.library")
  9. open('ibstart','CON:60/100/350/80/IBStart/cds')
  10.  
  11. ADDRESS 'COMMAND' 'assign >T:assignlist dirs'
  12. ok=open(assignfile,'T:assignlist','R')
  13. alist=readch(assignfile,60000)
  14. close(configfile)
  15. alist=UPPER(alist)
  16. IF POS(NL||'IBROWSE',alist)~=0 THEN ib=1
  17. IF POS(NL||'MIAMI',alist)~=0 THEN mi=1
  18. IF POS(NL||'AMIRC',alist)~=0 THEN ai=1
  19. IF POS(NL||'STRICQ',alist)~=0 THEN st=1
  20. IF ib THEN call writeln 'ibstart','IBrowse assign found. Skipped that part'
  21. IF mi THEN call writeln 'ibstart','Miami   assign found. Skipped that part'
  22. IF ai THEN call writeln 'ibstart','AmIrc   assign found. Skipped that part'
  23. IF st THEN call writeln 'ibstart','STRIcq  assign found. Skipped that part'
  24.  
  25. IF ~ib THEN DO 
  26.     name='IBrowse'
  27.     check='IBrowse.prefs'
  28.     CALL MAKEASSIGN
  29. END
  30.  
  31. cls
  32. ADDRESS 'COMMAND'
  33.  
  34. IF ~EXISTS('IBrowse:REXX') THEN DO
  35.     call writeln 'ibstart','Ibrowse/REXX  not found. Making REXX Directory'
  36.     'Makedir IBrowse:REXX'
  37. END
  38. call writeln 'ibstart','Now copying files to IBrowse:Rexx'
  39. 'Copy >CON: rexx/#? Ibrowse:rexx/'
  40.  
  41. IF ~lib THEN DO
  42. call writeln 'ibstart','Could not find rexxreqtools.library!!!'
  43.     call writeln 'ibstart','See guide.html for a Url'
  44.     call writeln 'ibstart','(Press "Enter" to continue )'
  45.     open('input','ibstart','R')
  46.     ok=readln('ibstart')
  47. END
  48.  
  49. IF ~mi THEN DO
  50.     name='Miami'
  51.     check='miami.default'
  52.     ADDRESS "COMMAND" 'delete ram:env/MIS'
  53.     CALL MAKEASSIGN
  54. END
  55.  
  56. IF mi THEN DO
  57.     call writeln 'ibstart','Now copying file to Miami:'
  58.     'Copy >CON: IBrowse:rexx/miamistartyam.rexx Miami:'
  59. END
  60.  
  61. IF ~ai THEN DO
  62.     name='AmIrc'
  63.     check='default.amircfg'
  64.     CALL MAKEASSIGN
  65. END
  66.  
  67. IF ~st THEN DO
  68.     name='STRIcq'
  69.     check='LastUser'
  70.     CALL MAKEASSIGN
  71. END
  72.  
  73. call writeln 'ibstart','All done! Now edit your IBrowse/Yam/Miami Settings'
  74. call writeln 'ibstart','as shown by guide.html. '
  75. call writeln 'ibstart','( Just drag`n-drop it on IBrowse )'
  76. 'wait 20'
  77. EXIT
  78.  
  79. MAKEASSIGN:
  80.     call writeln 'ibstart','Could not find a '|| name ||'  assign!!!'
  81.     call writeln 'ibstart','Please enter the path to the '|| name ||'  directory'
  82.     call writeln 'ibstart','(Ex: "SYS:Surf/'|| name ||'" )'
  83.     IF name~='IBrowse' THEN call writeln 'ibstart','("Enter" / "Cancel" to skip this part. )'
  84.     call writeln 'ibstart',''
  85.     DO FOREVER
  86.         IF lib=0 THEN path=readln('ibstart')
  87.         IF lib=1 THEN path = rtfilerequest('SYS:', , "Pick "|| name ||"  directory",,"rtfi_flags = freqf_nofiles")
  88.  
  89.         IF path='' & name~='IBrowse' THEN BREAK
  90. say rc
  91.  
  92.         IF RIGHT(path,1)='/' THEN path=LEFT(path,(LENGTH(path)-1))
  93.         say path
  94.         all=path||'/'|| check
  95.         If exists(all) then break
  96.         call writeln 'ibstart','Could not find '|| check ||'  in'
  97.         call writeln 'ibstart',path
  98.         call writeln 'ibstart','Please enter the path to the ' name ' directory'
  99.     END
  100.  
  101.     IF path~='' THEN DO
  102.         ADDRESS 'COMMAND'
  103.         IF ~EXISTS('s:userstartup.preIBs') THEN 'copy S:user-startup S:user-startup.preIBs'
  104.         ok=OPEN('user','S:user-startup','A')
  105.         ok=WRITELN('user','assign 'name': '||path||'   ;Added by IBrowseScripts')
  106.         'assign 'name':' path 
  107.     END
  108. RETURN